;; 测试continuation返回值的详细类型信息
(display "测试continuation返回值的详细类型信息\n")

(define result (call/cc (lambda (k) (k 42))))

(display "直接显示result: ")
(display result)
(display "\n")

;; 定义检查值的函数
(define check-value 
  (lambda (v) 
    (display "值类型检查:\n")
    (display "  是否为null?: ")
    (display (null? v))
    (display "\n")
    (display "  是否为整数?: ")
    (display (integer? v))
    (display "\n")
    (display "  是否为pair?: ")
    (display (pair? v))
    (display "\n")
  )
)

(check-value result)

;; 尝试与42进行比较
(display "与42比较: ")
(display (= result 42))
(display "\n")

;; 尝试数学运算
(display "数学运算测试: ")
(display (+ result 8))
(display "\n")

(display "测试结束\n")